home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / gotoframe.clssa < prev    next >
Text File  |  1995-01-20  |  917b  |  35 lines
  1. /***********************************************************************
  2.   GADGET: "'Zeige Frame ...'" "5" "27" TYP: "?"
  3.  
  4.   $DAT >>GotoFrame.clssa<<    04.10.1992 - (C) ProDAD Holger Burkarth
  5.                               17.01.1995 - (C) ProDAD Michael Christoph
  6. ************************************************************************/
  7.  
  8. Options Results
  9. Address clariSSA
  10.  
  11.  
  12.   FailAt 99
  13.   AltFail=RESULT
  14.  
  15.   GetAnimInfo
  16.   IF RESULT="" THEN Message "'Keine Animation vorhanden.'"
  17.   ELSE DO
  18.     GetAnimInfo
  19.     IF RESULT~="" THEN Parse var RESULT "POS" altepos .
  20.     GetArea
  21.     PARSE VAR RESULT "FROM" von "TO" bis .
  22.     INTRequest "'*** Zeige Frame ***'",
  23.                "''",
  24.                "'Geben Sie die gewünschte'",
  25.                "'Frame-Nummer ein.'",
  26.                "'<< Innerhalb von"von"bis "bis" >>'" altepos
  27.     IF RC=0 THEN DO
  28.       IF RESULT>0 THEN ViewFrame RESULT
  29.     END
  30.   END
  31.  
  32.   FailAt AltFail
  33. exit
  34.  
  35.